home *** CD-ROM | disk | FTP | other *** search
/ Internet Surfer: Getting Started / Internet Surfer - Getting Started (Wayzata Technology)(7231)(1995).bin / pc / mac / bonus / peter_le / talk_sou / my_libra / mytransl.uni < prev    next >
Text File  |  1992-04-20  |  857b  |  46 lines
  1. unit MyTranslate82728;
  2.  
  3. { This program was written by Peter N Lewis, Mar 1992 in THINK Pascal 4.0.1 }
  4.  
  5. interface
  6.  
  7.     const
  8.         translateResType = 'taBL';
  9.         translateOutResID = 128;
  10.         translateInresID = 129;
  11.  
  12.     type
  13.         transTable = array[0..255] of signedByte;
  14.  
  15.     procedure GetTrans (id: integer; var trans: transTable);
  16.  
  17. implementation
  18.  
  19.     uses
  20.         MyPreferences;
  21.  
  22.     procedure GetTrans (id: integer; var trans: transTable);
  23.         var
  24.             th: handle;
  25.             s: str255;
  26.             tfs: FSSpec;
  27.             tres, i: integer;
  28.     begin
  29.         GetPrefsFSSpec(tfs);
  30.         tres := HOpenResFile(tfs.vRefNum, tfs.parID, 'Translate 7<->8', fsRdPerm);
  31.         th := GetResource(translateResType, id);
  32.         if th = nil then
  33.             for i := 0 to 255 do
  34. {$PUSH}
  35. {$R-}
  36.                 trans[i] := i
  37. {$POP}
  38.         else begin
  39.             BlockMove(th^, @trans, SizeOf(trans));
  40.             ReleaseResource(th);
  41.         end;
  42.         if tres <> -1 then
  43.             CloseResFile(tres);
  44.     end;
  45.  
  46. end.